home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Digital Talk 4
/
Digital_Talk_04_1993-12-10_Digital_Talk_de_Side_B.d64
/
6. hsm-giana
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
2KB
|
78 lines
10 poke53280,11:poke53281,0:poke646,13:print"[147] ford prefect's highscoremaker"
20 print" written 1993 public domain software"
30 print"[159] spiel: [156]giana sisters"
40 print" [154] highscore:"
50 print" [183][183][183][183][183][183][183][183][183][183]"
60 print"[158]# punkte name level[153]"
70 :
80 : l$="atg,p,r" : s$="atg,p,w"
90 :
100 : open 1,8,2,l$
110 : get #1,no$,no$
120 :
130 : for a = 0 to 4
140 : for b = 0 to 23
150 : get#1, byte$
160 : if byte$="" then poke 49152+a*24+b,0:goto180
170 : poke 49152+a*24+b,asc(byte$)
180 : next b
190 : next a
200 close 1
210 :
220 : for a = 0 to 4
230 : for b = 0 to 23
240 : s = peek (49152+a*24+b)
250 : ifs= 0then s=32
260 : ifs=253then s=46
270 : ifs< 32then s=s+64
280 : hs$(a)=hs$(a)+chr$(s)
290 : next b
300 : print hs$(a)
310 : next a
320 :
330 : print"[154] welche nummer willst du aendern ?"
340 : print"[159] tippe ein : 1-5 oder _ zum beenden"
350 :
360 : get a$: ifa$=""then 360
370 : ifa$="_"then end
380 : a=val(a$)
390 : if a<1 or a>5 then goto 360
400 :
410 : a=(a-1)
420 :
430 : print"[158]max. 24 zeichen !"
440 : print" #[175][175]punkte[175]name[175][175][175][175][175]level[153]"
450 : print" ";hs$(a)
460 : input"[145]";e$
470 : if len(e$) > 24 then goto 460
480 : if len(e$) < 24 then gosub 680
490 : print" aenderung wird gespeichert !"
500 :
510 : for l = 1 to 24
520 : s = asc(mid$(e$,l,1))
530 : if s > 64 then s = s - 64
540 : if s = 46 then s = 253
550 : if s = 32 then s = 0
560 : poke 49152+a*24+l-1,s
570 : nextl
580 :
590 : open15,8,15,"s:atg":close15
600 : open 1,8,2,s$
605 : print#1,chr$(247);chr$(54);
610 : for l = 0 to 119
620 : s = peek(49152+l)
630 : print#1,chr$(s);
640 : nextl
650 : close 1
660 :
670 : run
680 : forw=len(e$)to24:e$=e$+chr$(32): nextw:return
685 :
690 : ford prefect's highscoremaker
700 : spiel : giana sisters (w) 1993 by
710 :
720 : danny busch
730 : birkenallee 18
740 : 65549 limburg (germany)
750 : tel.: 06431/25866